home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Gfx
/
Edit
/
ImageEngineer
/
ARexx
/
WetInk.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-19
|
1KB
|
36 lines
/* DIP Rexx script */
/* by Simon Edwards */
/* Makes a B&W image look like the ink has run */
Options results
signal on error /* Setup a place for errors to go */
address 'IMAGEENGINEER'
IE_To_Front
'request "This script makes a Black and White'||D2C(10)||'image look like the ink has run." "Let''s Go!"'
'get_file "Select a B&W image" "This One"'
filename=result
if filename="" then exit
'open "'||filename||'"'
sourcename=result
negative sourcename
negimage=result
close sourcename
'Convolve '||negimage||' "IE:convolves/Wet_WhiteOnBlack"'
convolveimage=result
close negimage
negative convolveimage
close convolveimage
'request "All Done." "Cool."'
exit
/*******************************************************************/
/* This is where control goes when an error code is returned by IE */
/* It puts up a message saying what happened and on which line */
/*******************************************************************/
error:
IE_to_front
LAST_ERROR
'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
exit